home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / listing 24 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  51 lines
  1. 10 REM PROGRAMM ZUR KONVERTIERUNG
  2. 20 REM VON FUENF GCR-BYTES IN DIE
  3. 30 REM VIER ENTSPRECHENDEN
  4. 40 REM HEX-AEQUIVALENTE
  5. 50 REM
  6. 60 REM
  7. 70 REM
  8. 80 REM (W) 1985 BY KARSTEN SCHRAMM
  9. 90 REM
  10. 100 A$="0123456789ABCDEF":DIMG$(15):E$=""
  11. 110 G$(0)="01010"
  12. 120 G$(1)="01011"
  13. 130 G$(2)="10010"
  14. 140 G$(3)="10011"
  15. 150 G$(4)="01110"
  16. 160 G$(5)="01111"
  17. 170 G$(6)="10110"
  18. 180 G$(7)="10111"
  19. 190 G$(8)="01001"
  20. 200 G$(9)="11001"
  21. 210 G$(10)="11010"
  22. 220 G$(11)="11011"
  23. 230 G$(12)="01101"
  24. 240 G$(13)="11101"
  25. 250 G$(14)="11110"
  26. 260 G$(15)="10101"
  27. 270 PRINT"[147]GCR - HEX - KONVERTIERUNG":PRINT
  28. 280 PRINT:PRINT"GEBEN SIE JETZT 5 GCR-BYTES EIN":PRINT
  29. 290 INPUT"";H$:GC$=""
  30. 300 X$="":FORX=1TOLEN(H$)
  31. 310 IFMID$(H$,X,1)<>" "THENX$=X$+MID$(H$,X,1)
  32. 320 NEXT
  33. 330 H$=X$
  34. 340 FORX=1TO10
  35. 350 X$=MID$(H$,X,1)
  36. 360 XX=VAL(X$):IFXX=0ANDX$<>"0"THENXX=ASC(X$)-55
  37. 370 FORY=0TO3
  38. 380 YY=INT(XX/2^(3-Y)):XX=XX-YY*2^(3-Y)
  39. 390 IFYYTHENGC$=GC$+"1":GOTO410
  40. 400 GC$=GC$+"0"
  41. 410 NEXTY,X
  42. 420 HC$="":FORX=1TO8
  43. 430 X$=MID$(GC$,X*5-4,5)
  44. 440 FORY=0TO15
  45. 450 IFX$<>G$(Y)THENNEXTY
  46. 460 :
  47. 470 HC$=HC$+MID$(A$,Y+1,1)
  48. 480 IFINT(X/2)=X/2THENHC$=HC$+" "
  49. 490 NEXTX
  50. 500 PRINT:PRINT:PRINT"HEX: ";HC$
  51.